Appendix to: Examining Inter-Rater Reliability in a Reality Baking Show

The Data

Run this code to redreate the data frame:

df <- 
  data.frame(
    Moshik = c(1L, 1L, 1L, 1L, 0L, 1L, 0L, 1L,
               0L, 1L, 0L, 1L, 0L, 1L, 1L, 1L,
               0L, 0L, 0L, 0L, 1L, 1L, 1L, 1L,
               1L, 0L, 0L, 0L, 1L, 1L, 0L),
    Assaf = c(1L, 0L, 1L, 0L, 1L, 1L, 1L, 1L,
              0L, 1L, 1L, 1L, 0L, 1L, 0L, 1L,
              0L, 0L, 0L, 1L, 1L, 0L, 1L, 1L,
              0L, 0L, 1L, 0L, 1L, 1L, 0L),
    Erez = c(1L, 0L, 1L, 0L, 1L, 1L, 1L, 1L,
             0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L,
             1L, 1L, 0L, 1L, 0L, 1L, 1L, 1L,
             1L, 0L, 0L, 0L, 0L, 1L, 0L),
    Yosi = c(1L, 0L, 0L, 0L, 1L, 1L, 0L, 1L,
             0L, 1L, 1L, 1L, 1L, 1L, 0L, 1L,
             0L, 0L, 0L, 0L, 1L, 0L, 0L, 1L,
             0L, 0L, 1L, 0L, 1L, 1L, 0L)
  )
head(df)

  Moshik Assaf Erez Yosi
1      1     1    1    1
2      1     0    0    0
3      1     1    1    0
4      1     0    0    0
5      0     1    1    1
6      1     1    1    1